home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / shared.dir / 01063_Script_1063 < prev    next >
Text File  |  1994-11-15  |  444b  |  20 lines
  1. on soundP chan, sndPath
  2.   global obj,soundDur,deltaTicks
  3.   sound playFile chan, sndPath
  4.   if objectP(Obj) then Obj(mDispose)
  5.   openXlib "aiff"
  6.   set Obj = aiff(mNew)
  7.   set soundDur = Obj(mDuration,sndPath)
  8.   Obj(mDispose)
  9.   closeXlib "aiff"
  10.   set deltaTicks = the ticks
  11. end soundP
  12.  
  13. on soundB chan
  14.   global sounDur,deltaTicks
  15.   if ((the ticks) - deltaTicks) < soundDur then
  16.     return 1
  17.   else
  18.     return 0
  19.   end if
  20. end soundB